home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 January / Macworld (1998-01).dmg / QuarkXPress Passport / QXP Passport™ Pre-release PPC / QuarkXPress Passport™ 4.0 Demo / QuarkXPress Passport™ 4.0 Demo.rsrc / PSHD_1000 < prev    next >
Text File  |  1997-08-25  |  544b  |  9 lines
  1. /setcustomcolor where{pop/docust{save 1 index 4 get
  2.  [.5 .5 .5 0 6 -1 roll] 1 setcustomcolor currentgray
  3.  exch restore dup 1 eq exch 0 eq or}B}{/docust{F}B/setcustomcolor
  4.  {exch aload pop pop 4{4 index mul 4 1 roll}repeat setcmykcolor pop}B}ifelse
  5. /setcustc{/custprsnt T def/regsh -1 def/custsh X dup length custnamstr dup 79
  6.  3 index put 0 3 -1 roll getinterval copy custar astore custsh setcustomcolor}B
  7. /findcmykcustomcolor where{pop}{/findcmykcustomcolor{5 array astore readonly}B}ifelse
  8. /setoverprint where{pop}{/setoverprint{pop}B}ifelse
  9.